Attribute VB_Name = "UserAccessibleEntryPoints"
''' Excel menu options need to be associated with parameterless Public Subs.
''' This is where they live.
Option Explicit

Public Sub CreateNewApplication()

Dim tmb As xlUnitCodeBuilder

    Set tmb = New xlUnitCodeBuilder
    
    tmb.BuildNewTestableApplication

End Sub

Public Sub AddNewTestClass()

Dim tmb As xlUnitCodeBuilder

    With New frmNewClass
    
        .Show

        Set tmb = New xlUnitCodeBuilder
    
        tmb.BuildTestClass .ClassName, .AddToFactory, .TestClassRequired, .TestAndAppClasses
        
    End With

End Sub

Public Sub SetOptions()

    theFactory.ConfigObject.Display

End Sub

Public Sub ShowAbout()

    MsgBox Join(Array("xlUnit unit testing framework for Excel/VBA", "http://xlvbadevtools.codeplex.com", XLUNIT_VERSION), vbCrLf), vbOKOnly, "About xlUnit"

End Sub
